home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / rdblib / logo.frm < prev    next >
Text File  |  1995-05-08  |  5KB  |  169 lines
  1. VERSION 2.00
  2. Begin Form LogoForm 
  3.    BackColor       =   &H00808080&
  4.    Caption         =   "RDB Common Subroutine & Function Library"
  5.    ClientHeight    =   5505
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1380
  8.    ClientWidth     =   7440
  9.    FontBold        =   -1  'True
  10.    FontItalic      =   0   'False
  11.    FontName        =   "Futura Md BT"
  12.    FontSize        =   8.25
  13.    FontStrikethru  =   0   'False
  14.    FontUnderline   =   0   'False
  15.    Height          =   5910
  16.    Icon            =   LOGO.FRX:0000
  17.    Left            =   1035
  18.    LinkMode        =   1  'Source
  19.    LinkTopic       =   "Form1"
  20.    ScaleHeight     =   5505
  21.    ScaleWidth      =   7440
  22.    Top             =   1035
  23.    Width           =   7560
  24.    Begin CommandButton OKBtn 
  25.       Caption         =   "OK"
  26.       Height          =   615
  27.       Left            =   240
  28.       TabIndex        =   4
  29.       Top             =   2400
  30.       Visible         =   0   'False
  31.       Width           =   735
  32.    End
  33.    Begin PictureBox Picture1 
  34.       AutoSize        =   -1  'True
  35.       BackColor       =   &H00808080&
  36.       BorderStyle     =   0  'None
  37.       FontBold        =   -1  'True
  38.       FontItalic      =   0   'False
  39.       FontName        =   "Futura Md BT"
  40.       FontSize        =   8.25
  41.       FontStrikethru  =   0   'False
  42.       FontUnderline   =   0   'False
  43.       Height          =   3600
  44.       Left            =   1320
  45.       Picture         =   LOGO.FRX:0302
  46.       ScaleHeight     =   3600
  47.       ScaleWidth      =   5040
  48.       TabIndex        =   0
  49.       Top             =   1440
  50.       Width           =   5040
  51.    End
  52.    Begin Timer Timer1 
  53.       Left            =   360
  54.       Top             =   1200
  55.    End
  56.    Begin Label Label1 
  57.       Alignment       =   2  'Center
  58.       AutoSize        =   -1  'True
  59.       BackColor       =   &H00808080&
  60.       Caption         =   "Brought To You By"
  61.       FontBold        =   -1  'True
  62.       FontItalic      =   0   'False
  63.       FontName        =   "Futura Md BT"
  64.       FontSize        =   12
  65.       FontStrikethru  =   0   'False
  66.       FontUnderline   =   0   'False
  67.       ForeColor       =   &H00FF0000&
  68.       Height          =   270
  69.       Index           =   0
  70.       Left            =   2520
  71.       TabIndex        =   2
  72.       Top             =   1080
  73.       Width           =   2190
  74.    End
  75.    Begin Label Version 
  76.       Alignment       =   2  'Center
  77.       BackColor       =   &H00808080&
  78.       Caption         =   "Version "
  79.       FontBold        =   -1  'True
  80.       FontItalic      =   0   'False
  81.       FontName        =   "Futura Md BT"
  82.       FontSize        =   13.5
  83.       FontStrikethru  =   0   'False
  84.       FontUnderline   =   0   'False
  85.       ForeColor       =   &H00FF0000&
  86.       Height          =   255
  87.       Left            =   2760
  88.       TabIndex        =   3
  89.       Top             =   720
  90.       Width           =   1695
  91.    End
  92.    Begin Label TBLabel 
  93.       Alignment       =   2  'Center
  94.       AutoSize        =   -1  'True
  95.       BackColor       =   &H00808080&
  96.       Caption         =   "Common Subroutine && Function Library"
  97.       FontBold        =   -1  'True
  98.       FontItalic      =   0   'False
  99.       FontName        =   "Futura Md BT"
  100.       FontSize        =   19.5
  101.       FontStrikethru  =   0   'False
  102.       FontUnderline   =   0   'False
  103.       ForeColor       =   &H00FF0000&
  104.       Height          =   450
  105.       Left            =   180
  106.       TabIndex        =   1
  107.       Top             =   120
  108.       Width           =   7050
  109.    End
  110. End
  111.  
  112.  
  113.  
  114.  
  115. Sub Form_Load ()
  116.     On Error GoTo formerror1
  117.     mousepointer = HOURGLASS
  118.     Version.Caption = "Version " & rb_version
  119.     timer1.Interval = 1000
  120.     SndPlaySound "drum.wav", 2
  121.     SndPlaySound "tada.wav", 2
  122.     On Error Resume Next
  123.     OkBtn.Visible = True
  124.     
  125.     Exit Sub
  126.  
  127. formerror1:
  128.     erraction = RB_ErrorHandler("LogoForm", "Form_Load")
  129.     Select Case erraction
  130.     Case 1
  131.         Resume 0
  132.     Case 2
  133.         Resume Next
  134.     End Select
  135.  
  136.     
  137. End Sub
  138.  
  139. Sub OKBtn_Click ()
  140.     mousepointer = DEFAULT
  141.     Unload LogoForm
  142.     
  143. End Sub
  144.  
  145. Sub Timer1_Timer ()
  146.     On Error GoTo Timer1error1
  147.     SndPlaySound "rdblib.wav", 2
  148.     junk% = DoEvents()
  149.     SndPlaySound "broghtby.wav", 2
  150.     junk% = DoEvents()
  151.     SndPlaySound "rdbsystm.wav", 2
  152.     timer1.Enabled = False
  153.     mousepointer = DEFAULT
  154.  
  155.     Exit Sub
  156.  
  157. Timer1error1:
  158.     erraction = RB_ErrorHandler("LogoForm", "Timer1_Timer")
  159.     Select Case erraction
  160.     Case 1
  161.         Resume 0
  162.     Case 2
  163.         Resume Next
  164.     End Select
  165.  
  166.  
  167. End Sub
  168.  
  169.